﻿<%
sub CheckLogin(byval directUrl)
  if IsEmpty(Session("Passed")) then
	  Session("Passed") = false
  end if

  if Session("Passed") = false Then
    '<script language="javascript" type="text/javascript">
    'alert('Please Log in!');
    'location.href='../index.asp';
    '</script>

    Response.Redirect(directUrl)
  end if
end sub
%>